﻿Public Class frmHauptmenue

    Private Sub cmdAnnahme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnnahme.Click

        clsGlobals.eOperation = clsGlobals.OperationStatus.Annahme

        clsGlobals.ShowForm(Me, frmPaketScan)

    End Sub

    Private Sub cmdZentrale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdZentrale.Click

        clsGlobals.eOperation = clsGlobals.OperationStatus.Zentrale

        clsGlobals.ShowForm(Me, frmPaketScan)

    End Sub

    Private Sub cmdVerladung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVerladung.Click

        clsGlobals.eOperation = clsGlobals.OperationStatus.Verladung

        clsGlobals.ShowForm(Me, frmPaketScan)

    End Sub

    Private Sub cmdZusteller_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdZusteller.Click

        clsGlobals.eOperation = clsGlobals.OperationStatus.Zusteller

        clsGlobals.ShowForm(Me, frmPaketScan)

    End Sub

    Private Sub cmdAbmelden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAbmelden.Click

        'Mitarbeiter zurücksetzen
        clsData.Mitarbeiter = Nothing

        clsGlobals.ShowForm(Me, frmAnmeldung)

    End Sub

    Private Sub frmHauptmenue_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        e.Cancel = True
        cmdAbmelden_Click(sender, e)
    End Sub
End Class